    Syntax     {%IN% label} {%ON% iteration} %COLLECT% {%STRICTLY%} term 
            or {%IN% label} {%ON% iteration} %COLLECT% &operator& {%ON% term}

    Where       &operator& is one of the following :
                %D% - Differential Operator  (Ctrl D|d on keyboard)
                %Ÿ% - Integral Operator      (Ctrl K|k on keyboard)
                %ä% - Summation Operator     (Greek S on keyboard)
                %% - Product Operator       (Greek P on keyboard)

    Abbreviation       COL for COLLECT

    Purpose     Collects the appropriate linear operator or term.

    %Examples%
    þE1 : %D%[x](f(x)) + %D%[x](g(x))
    þIN E1 COLLECT %D% ON x     
    E1 : %D%[x](f(x) + g(x))

    PROCEDURE Example(LABEL L ; PARAMETER P) ;
      IN L COLLECT %D% ON P ;
    EXIT

